home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 11,000 to 11,999 / 11000.zip / AOLDLs / WIN Tools & Treiber / SCRIPT.exe / skript4.txt < prev   
Text File  |  1998-12-21  |  3KB  |  72 lines
  1. Dim myfsObject, myFileList
  2. Dim myFolder, myFile
  3. Dim htmlFile, rohFile, htmlDir, rohDir, htmlDateiName, myHTMLFolder
  4. Dim htmlInit, htmlEnd, tempzeile, Dateiname
  5.  
  6. Set WSHShell=WScript.CreateObject("WScript.Shell")
  7. Set Shell=WScript.CreateObject("Shell.Application")
  8.  
  9. 'Hier die Ausgangs und Ziel-Verzeichnisse eintragen. 
  10. 'Wichtig: Am Ende darf kein \ stehen, root-Verzeichnisse (c:\)
  11. 'gelten nicht.
  12. htmlDir="c:\temp\html"
  13. rohDir="c:\temp\roh"
  14.  
  15. 'Der Abschlu▀ einer HMTL-Datei
  16. htmlEnd="</body>" & chr(13) & chr(10) & "</html>"
  17.  
  18. 'Datei- und Verzeichnisobjekte setzen
  19. Set myfsObject=CreateObject("Scripting.FileSystemObject")
  20. Set myFolder=myfsObject.GetFolder(rohDir)
  21. Set myHTMLFolder=myfsObject.GetFolder(htmlDir)
  22. Set myFileList=myFolder.Files
  23.  
  24. For Each myFile in myFileList
  25.     'Vor dem Prⁿfen den Textstring auf Kleinschrift schalten
  26.     if LCase(right(myFile.Name, 3))="txt" then 
  27.         'TXT-Endung gegen HTML tauschen
  28.         htmlDateiName = left(myFile.Name, len(myFile.Name)-4) & ".html"
  29.  
  30.         'Neues HTML-File schreiben
  31.         Set htmlFile=myHTMLFolder.CreateTextFile(htmlDateiName, 1)
  32.         
  33.         'Anfang der HTML-Datei schreiben. Dabei wird der Original-Dateiname
  34.         'in die Titelzeile ⁿbernommen
  35.         htmlInit="<html>" & chr(13) & chr(10) & "<head>" & chr(13) & chr(10) & "<title>" & myFile.Name & "</title>"  & chr(13) & chr(10) & "</head>"  & chr(13) & chr(10) & "<body>"
  36.         htmlFile.WriteLine(htmlInit)
  37.  
  38.         'Die Original-Datei ÷ffnen und zum Einlesen vorbereiten
  39.         Dateiname=rohDIR & "\" & myFile.Name
  40.         Set rohFile=myfsObject.OpenTextFile(Dateiname, 1, False)
  41.  
  42.         'Lesen, bis Ende des Textstreams erreicht
  43.         Do While (rohFile.AtEndOfStream=False)
  44.             tempzeile = rohFile.ReadLine
  45.             'Anstelle einer Leerzeile eine Absatzmarke setzen
  46.             'Ans Ende einer Zeile den HTML-Zeilenumbruch setzen
  47.             if tempzeile="" then 
  48.                 tempzeile = tempzeile & "<p>"
  49.             else
  50.                 tempzeile = tempzeile & "<br>"
  51.             end if
  52.  
  53.             'Umlaute und Sonderzeichen ersetzen
  54.             tempzeile=replace(tempzeile, chr(34), """)
  55.             tempzeile=replace(tempzeile, "Σ", "ä")
  56.             tempzeile=replace(tempzeile, "÷", "ö")
  57.             tempzeile=replace(tempzeile, "ⁿ", "ü")
  58.             tempzeile=replace(tempzeile, "─", "Ä")
  59.             tempzeile=replace(tempzeile, "╓", "Ö")
  60.             tempzeile=replace(tempzeile, "▄", "Ü")
  61.             tempzeile=replace(tempzeile, "▀", "ß")
  62.             htmlFile.WriteLine(tempzeile)
  63.         loop
  64.         
  65.         'Letzte Zeile schreiben und alles dichtmachen
  66.         htmlFile.WriteLine(htmlEnd)
  67.         rohFile.Close
  68.         htmlFile.Close
  69.     end if
  70. Next
  71.  
  72. WSHShell.popup "Fertig..."